* eglot.el (advice-add jsonrpc-request): add &allow-other-keys

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 3b1b364ac96f3162c72cd1beb684decb6d73eae5..7f0e91dbbc21b2ac0164298281a35594012339f9 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1048,7 +1048,8 @@ Records START, END and PRE-CHANGE-LENGTH locally."
 ;; bad idea, since that might lead to the request never having a
 ;; chance to run, because `jsonrpc-connection-ready-p'.
 (advice-add #'jsonrpc-request :before
-            (cl-function (lambda (_proc _method _params &key deferred _timeout)
+            (cl-function (lambda (_proc _method _params &key
+                                        deferred &allow-other-keys)
                            (when (and eglot--managed-mode deferred)
                              (eglot--signal-textDocument/didChange))))
             '((name . eglot--signal-textDocument/didChange)))